home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / fax / leffler / v2.1.0.patch-4 < prev    next >
Text File  |  1993-07-19  |  32KB  |  1,152 lines
  1. #! /bin/sh
  2. # patch script for converting a15 to a19
  3. TOP=.
  4.  
  5. Patch()
  6. {
  7.     echo "Patch $1:"; patch -s $TOP/$1
  8. }
  9.  
  10. NewFile()
  11. {
  12.     echo "New file $1"; cat >$TOP/$1
  13. }
  14.  
  15. NewDir()
  16. {
  17.     echo "New directory $1"; mkdir $TOP/$1
  18. }
  19.  
  20. RmFile()
  21. {
  22.     echo "Remove $1"; rm -f $TOP/$1.orig; mv $TOP/$1 $TOP/$1.orig
  23. }
  24.  
  25. Patch MODEMS<<'EOF-EOF-EOF'
  26. 1c1
  27. < $Header: /usr/people/sam/fax/RCS/MODEMS,v 1.19 93/05/12 09:08:31 sam Exp $
  28. ---
  29. > $Header: /usr/people/sam/fax/RCS/MODEMS,v 1.20 93/07/15 10:50:26 sam Exp $
  30. 40c40
  31. < o received HDLC frames do NOT include the FCS bytes
  32. ---
  33. > o received HDLC frames do NOT include the FCS bytes (fixed in rev 133).
  34. EOF-EOF-EOF
  35. Patch distrules<<'EOF-EOF-EOF'
  36. 1c1
  37. < #    $Header: /usr/people/sam/fax/RCS/distrules,v 1.62 93/07/11 13:04:08 sam Exp $
  38. ---
  39. > #    $Header: /usr/people/sam/fax/RCS/distrules,v 1.64 93/07/19 11:33:59 sam Exp $
  40. 131d130
  41. <     port/linux/osfcn.h                \
  42. 133c132
  43. <     port/linux/sys/param.h            \
  44. ---
  45. >     port/linux/sys/types.h            \
  46. 260a260
  47. >     util/recvstats.sh            \
  48. 263a264
  49. >     util/xferstats.sh            \
  50. 269,270d269
  51. <     util/xfer.awk                \
  52. <     util/xferdest.awk            \
  53. EOF-EOF-EOF
  54. Patch dist/flexfax.alpha<<'EOF-EOF-EOF'
  55. 1c1
  56. < define ALPHA 015
  57. ---
  58. > define ALPHA 019
  59. EOF-EOF-EOF
  60. Patch faxd/Class2.c++<<'EOF-EOF-EOF'
  61. 1c1
  62. < /*    $Header: /usr/people/sam/fax/faxd/RCS/Class2.c++,v 1.60 93/05/16 11:51:30 sam Exp $
  63. ---
  64. > /*    $Header: /usr/people/sam/fax/faxd/RCS/Class2.c++,v 1.61 93/07/13 11:42:41 sam Exp $
  65. 213,214d212
  66. <  * Note that we do not touch bit rate or min scanline time
  67. <  * because we leave these to the modems to handle.
  68. 220c218
  69. <     params.br = (u_int) -1;
  70. ---
  71. >     params.br = getBestSignallingRate();
  72. 224,226c222,224
  73. <     params.ec = (u_int) -1;
  74. <     params.bf = (u_int) -1;
  75. <     params.st = (u_int) -1;
  76. ---
  77. >     params.ec = EC_DISABLE;        // XXX
  78. >     params.bf = BF_DISABLE;
  79. >     params.st = getBestScanlineTime();
  80. EOF-EOF-EOF
  81. Patch faxd/Class2Send.c++<<'EOF-EOF-EOF'
  82. 1c1
  83. < /*    $Header: /usr/people/sam/fax/faxd/RCS/Class2Send.c++,v 1.56 93/07/09 14:51:00 sam Exp $
  84. ---
  85. > /*    $Header: /usr/people/sam/fax/faxd/RCS/Class2Send.c++,v 1.57 93/07/13 11:45:12 sam Exp $
  86. 145,146d144
  87. <     u_int br = next.br;            // saved for caller use
  88. <     next.br = (u_int) -1;        // put in what's expected below
  89. 157,164d154
  90. <         /*
  91. <          * XXX don't touch these, some modems such as the
  92. <          * ZyXEL get confused and hangup the phone (argh).
  93. <          */
  94. <         next.br = (u_int) -1;
  95. <         next.ec = (u_int) -1;
  96. <         next.bf = (u_int) -1;
  97. <         next.st = (u_int) -1;
  98. 221d210
  99. <     next.br = br;            // restore original
  100. EOF-EOF-EOF
  101. Patch faxd/FaxMachineLog.c++<<'EOF-EOF-EOF'
  102. 1c1
  103. < /*    $Header: /usr/people/sam/fax/faxd/RCS/FaxMachineLog.c++,v 1.9 93/07/09 17:30:28 sam Exp $
  104. ---
  105. > /*    $Header: /usr/people/sam/fax/faxd/RCS/FaxMachineLog.c++,v 1.10 93/07/15 10:25:15 sam Exp $
  106. 110c110
  107. <     vsprintf(buf+strlen(buf), fmt, ap);
  108. ---
  109. >     vsprintf(buf+strlen(buf), (char*) fmt, ap);
  110. EOF-EOF-EOF
  111. Patch faxd/FaxModem.c++<<'EOF-EOF-EOF'
  112. 1c1
  113. < /*    $Header: /usr/people/sam/fax/faxd/RCS/FaxModem.c++,v 1.75 93/06/22 18:21:08 sam Exp $
  114. ---
  115. > /*    $Header: /usr/people/sam/fax/faxd/RCS/FaxModem.c++,v 1.76 93/07/13 17:28:06 sam Exp $
  116. 1004c1004
  117. < FaxModem::recvCSI(const fxStr& csi)
  118. ---
  119. > FaxModem::recvCSI(fxStr& csi)
  120. 1006,1010c1006,1009
  121. <     fxStr s(csi);
  122. <     s.remove(0, s.skip(0,' '));        // strip leading white space
  123. <     u_int pos = s.skipR(s.length(),' ');
  124. <     s.remove(pos, s.length() - pos);    // and trailing white space
  125. <     protoTrace("REMOTE CSI \"%s\"", (char*) s);
  126. ---
  127. >     csi.remove(0, csi.skip(0,' '));    // strip leading white space
  128. >     u_int pos = csi.skipR(csi.length(),' ');
  129. >     csi.remove(pos, csi.length() - pos);// and trailing white space
  130. >     protoTrace("REMOTE CSI \"%s\"", (char*) csi);
  131. EOF-EOF-EOF
  132. Patch faxd/FaxModem.h<<'EOF-EOF-EOF'
  133. 1c1
  134. < /*    $Header: /usr/people/sam/fax/faxd/RCS/FaxModem.h,v 1.66 93/07/09 14:51:02 sam Exp $
  135. ---
  136. > /*    $Header: /usr/people/sam/fax/faxd/RCS/FaxModem.h,v 1.67 93/07/13 17:27:43 sam Exp $
  137. 249c249
  138. <     void    recvCSI(const fxStr&);
  139. ---
  140. >     void    recvCSI(fxStr&);
  141. EOF-EOF-EOF
  142. Patch faxd/FaxSend.c++<<'EOF-EOF-EOF'
  143. 1c1
  144. < /*    $Header: /usr/people/sam/fax/faxd/RCS/FaxSend.c++,v 1.77 93/07/09 18:03:56 sam Exp $
  145. ---
  146. > /*    $Header: /usr/people/sam/fax/faxd/RCS/FaxSend.c++,v 1.81 93/07/19 13:57:41 sam Exp $
  147. 64a65,67
  148. >          *
  149. >          * NB: we fetch the client information here because
  150. >          *     it's needed in preparing the document.
  151. 65a69,70
  152. >         fxStr canon = canonicalizePhoneNumber(fax.number);
  153. >         clientInfo.restore(canon);
  154. 69,71c74,75
  155. <          * Construct the phone number to dial by crafting the
  156. <          * canonical form (+<country><areacode><number>), and
  157. <          * preparing the form to use in dialing the telephone.
  158. ---
  159. >          * Construct the phone number to dial by applying the
  160. >          * dialing rules to the user-specified dialing string.
  161. 73d76
  162. <         fxStr canon = canonicalizePhoneNumber(fax.number);
  163. 106a110
  164. >     u_int pagesSent = npages - fax.npages;
  165. 108a113,114
  166. >     pagesSent,
  167. >     clientInfo.getCSI(),
  168. 139d144
  169. <     clientInfo.restore(canon);
  170. 543c548,549
  171. <         "REJECT: %s, max remote page width %u, image width %lu",
  172. ---
  173. >         "REJECT: %s, max remote page width %u pixels"
  174. >          ", image width %lu pixels",
  175. 576c582
  176. <         "REJECT: %s, image resolution %g line/mm",
  177. ---
  178. >         "REJECT: %s, image resolution %g lines/mm",
  179. 599,600c605,607
  180. <         "REJECT: %s, max remote page length %d, image length %lu",
  181. <         (char*) emsg, clientInfo.getMaxPageLength(), h);
  182. ---
  183. >         "REJECT: %s, max remote page length %d mm"
  184. >             ", image length %lu rows (%.2f mm)",
  185. >         (char*) emsg, clientInfo.getMaxPageLength(), h, len);
  186. EOF-EOF-EOF
  187. Patch faxd/faxServerApp.c++<<'EOF-EOF-EOF'
  188. 1c1
  189. < /*    $Header: /usr/people/sam/fax/faxd/RCS/faxServerApp.c++,v 1.109 93/07/09 18:27:57 sam Exp $
  190. ---
  191. > /*    $Header: /usr/people/sam/fax/faxd/RCS/faxServerApp.c++,v 1.112 93/07/19 13:58:18 sam Exp $
  192. 793a794,806
  193. > struct FaxAcctInfo {
  194. >     const char*    user;        // sender/receiver identity
  195. >     time_t    start;        // starting time
  196. >     time_t    duration;    // job duration (minutes)
  197. >     const char*    device;        // modem device
  198. >     const char*    dest;        // receiver phone number
  199. >     const char*    csi;        // remote csi
  200. >     u_int    npages;        // pages successfully sent/rcvd
  201. >     u_int    sigrate;    // negotiated signalling rate
  202. >     const char*    df;        // negotiated data format
  203. >     const char*    status;        // status info (optional)
  204. > };
  205. > 
  206. 798c811,812
  207. < faxServerApp::notifySendDone(FaxRequest* req, u_int sigrate, const char* protocol)
  208. ---
  209. > faxServerApp::notifySendDone(FaxRequest* req,
  210. >     u_int npages, const char* csi, u_int sigrate, const char* df)
  211. 801,803c815,825
  212. <     time_t now = time(0);
  213. <     float dt = (now - jobStart) / 60.;
  214. <     const char* reason = req->notice;
  215. ---
  216. >     FaxAcctInfo ai;
  217. >     ai.user = req->mailaddr;
  218. >     ai.start = jobStart;
  219. >     ai.duration = time(0) - jobStart;
  220. >     ai.device = devID;
  221. >     ai.dest = req->number;
  222. >     ai.csi = csi;
  223. >     ai.npages = npages;
  224. >     ai.sigrate = sigrate;
  225. >     ai.df = df;
  226. >     ai.status = req->notice;
  227. 805,807c827,828
  228. <         reason = "";
  229. <     record("SEND", req->mailaddr, req->number,
  230. <         sigrate, protocol, req->npages, dt, reason);
  231. ---
  232. >         ai.status = "";
  233. >     account("SEND", ai);
  234. 1287,1288c1308,1320
  235. <     record("RECV", ri.sender, server->getModemNumber(),
  236. <     ri.sigrate, ri.protocol, ri.npages, ri.time / 60., ri.reason);
  237. ---
  238. > 
  239. >     FaxAcctInfo ai;
  240. >     ai.user = "fax";
  241. >     ai.duration = (time_t) ri.time;
  242. >     ai.start = time(0) - ai.duration;
  243. >     ai.device = devID;
  244. >     ai.dest = server->getModemNumber();
  245. >     ai.csi = ri.sender;
  246. >     ai.npages = ri.npages;
  247. >     ai.sigrate = ri.sigrate;
  248. >     ai.df = ri.protocol;
  249. >     ai.status = ri.reason;
  250. >     account("RECV", ai);
  251. 1507c1539,1540
  252. <     *cp++ = digits[v / 10];
  253. ---
  254. >     if (v >= 10)
  255. >         *cp++ = digits[v / 10];
  256. 1513c1546
  257. <     if (v > 10 || cp > tbuf)
  258. ---
  259. >     if (v >= 10 || cp > tbuf)
  260. 1567,1571c1600
  261. < faxServerApp::record(const char* cmd,
  262. <     const char* from, const char* to,
  263. <     int sigrate, const char* protocol,
  264. <     int npages, float duration,
  265. <     const char* reason)
  266. ---
  267. > faxServerApp::account(const char* cmd, const FaxAcctInfo& ai)
  268. 1576d1604
  269. <     time_t now = time(0);
  270. 1578,1580c1606,1614
  271. <     strftime(buf, sizeof (buf), "%D %R", localtime(&now));
  272. <     fprintf(flog, "%s\t%s\t\"%s\"\t\"%s\"\t%d\t\"%s\"\t%d\t%.2f\t\"%s\"\n",
  273. <         buf, cmd, from, to, sigrate, protocol, npages, duration, reason);
  274. ---
  275. >     strftime(buf, sizeof (buf), "%D %R", localtime(&ai.start));
  276. >     fprintf(flog,
  277. >         "%s\t%s\t%s\t%s\t\"%s\"\t\"%s\"\t%d\t%s\t%d\t%s\t\"%s\"\n",
  278. >         buf, cmd, ai.device,
  279. >         ai.user,
  280. >         ai.dest, ai.csi,
  281. >         ai.sigrate, ai.df,
  282. >         ai.npages, fmtTime(ai.duration),
  283. >         ai.status);
  284. EOF-EOF-EOF
  285. Patch faxd/faxServerApp.h<<'EOF-EOF-EOF'
  286. 1c1
  287. < /*    $Header: /usr/people/sam/fax/faxd/RCS/faxServerApp.h,v 1.39 93/07/09 18:04:35 sam Exp $
  288. ---
  289. > /*    $Header: /usr/people/sam/fax/faxd/RCS/faxServerApp.h,v 1.41 93/07/19 13:58:19 sam Exp $
  290. 94c94
  291. <     time_t    fileStart;        // starting time for file
  292. ---
  293. >     time_t    fileStart;        // starting time for file/poll
  294. 119,123c119
  295. <     void    record(const char* cmd,
  296. <             const char* from, const char* to,
  297. <             int rate, const char* protocol,
  298. <             int npages, float time,
  299. <             const char* reason);
  300. ---
  301. >     void    account(const char* cmd, const struct FaxAcctInfo&);
  302. 176c172,173
  303. <     void    notifySendDone(FaxRequest* req, u_int sigrate, const char* protoocol);
  304. ---
  305. >     void    notifySendDone(FaxRequest* req, u_int npages,
  306. >             const char* csi, u_int sigrate, const char* df);
  307. EOF-EOF-EOF
  308. Patch gs/gdevtiff.c<<'EOF-EOF-EOF'
  309. 1c1
  310. < /* $Header: /usr/people/sam/fax/gs/RCS/gdevtiff.c,v 1.4 93/07/06 21:11:00 sam Exp $ */
  311. ---
  312. > /* $Header: /usr/people/sam/fax/gs/RCS/gdevtiff.c,v 1.6 93/07/19 08:20:44 sam Exp $ */
  313. 136c136
  314. <     { 85,  117, 1728 },
  315. ---
  316. >     { 85,  116, 1728 },
  317. 171c171
  318. <     ddev->fax.iwidth = pi->iw;
  319. ---
  320. >     ddev->fax->iwidth = pi->iw;
  321. EOF-EOF-EOF
  322. Patch man/textfmt.1<<'EOF-EOF-EOF'
  323. 1c1
  324. < .\"    $Header: /usr/people/sam/fax/man/RCS/textfmt.1,v 1.3 93/07/08 17:06:43 sam Exp $
  325. ---
  326. > .\"    $Header: /usr/people/sam/fax/man/RCS/textfmt.1,v 1.4 93/07/16 10:14:06 sam Exp $
  327. 150c150
  328. < this file will almost certainly result
  329. ---
  330. > this metric will almost certainly result
  331. EOF-EOF-EOF
  332. Patch port/linux/README<<'EOF-EOF-EOF'
  333. 6,7c6,7
  334. <     - the kernel needs two small big fixes.  See the file
  335. <       kernel.diffs for details.  From the directory in which
  336. ---
  337. >     - the kernel needs a small bug fix.  See the file
  338. >       kernel.patch for details.  From the directory in which
  339. 10c10
  340. <       These fixes are needed for versions <= 99p10.
  341. ---
  342. >       This fix is needed for versions <= 99p10.
  343. EOF-EOF-EOF
  344. Patch port/linux/kernel.patch<<'EOF-EOF-EOF'
  345. 1c1
  346. < Two small bug fixes for kernels less than or equal to patchlevel 10.
  347. ---
  348. > A small bug fix for kernels less than or equal to patchlevel 10.
  349. 5,17c5,9
  350. <     1. In the current code, select() on a pipe returns true (ie data
  351. <        available) if there are no reader/writers.  In the case of
  352. <        named pipes (FIFOs), it is quite permissible for there to be
  353. <        no reader/writers, and select() should block until data is
  354. <        available.  In the case of normal pipes, exfds can be used to
  355. <        check for pipes that have no reader/writers.
  356. <     2. The nice call doesn't do high boundary checking.  This causes
  357. <        the reccommended method for setting a nice value to 0 to
  358. <        fail {nice(-40); nice(20); nice(0);}.  Also note that the
  359. <        nice limits are now 1 to 35, not the normal U*X values of
  360. <        0 to 39, values determined by the choice of PZERO - the man
  361. <        page should be updated.  And ps prints the nice value with
  362. <        the wrong sign.
  363. ---
  364. > In the current code, select() on a pipe returns true (ie data available)
  365. > if there are no reader/writers.  In the case of named pipes (FIFOs), it
  366. > is quite permissible for there to be no reader/writers, and select()
  367. > should block until data is available.  Similar exceptions apply to
  368. > reads/writes.
  369. 18a11,29
  370. > *** fs/fifo.c.orig    Wed Mar 31 20:08:45 1993
  371. > --- fs/fifo.c    Wed Jul 14 08:29:38 1993
  372. > ***************
  373. > *** 156,162 ****
  374. >   void init_fifo(struct inode * inode)
  375. >   {
  376. >       inode->i_op = &fifo_inode_operations;
  377. > !     inode->i_pipe = 1;
  378. >       PIPE_BASE(*inode) = NULL;
  379. >       PIPE_HEAD(*inode) = PIPE_TAIL(*inode) = 0;
  380. >       PIPE_RD_OPENERS(*inode) = PIPE_WR_OPENERS(*inode) = 0;
  381. > --- 156,162 ----
  382. >   void init_fifo(struct inode * inode)
  383. >   {
  384. >       inode->i_op = &fifo_inode_operations;
  385. > !     inode->i_pipe = 2;
  386. >       PIPE_BASE(*inode) = NULL;
  387. >       PIPE_HEAD(*inode) = PIPE_TAIL(*inode) = 0;
  388. >       PIPE_RD_OPENERS(*inode) = PIPE_WR_OPENERS(*inode) = 0;
  389. 20c31
  390. < --- fs/pipe.c    Sun May 23 01:13:43 1993
  391. ---
  392. > --- fs/pipe.c    Thu Jul 15 00:43:26 1993
  393. 21a33,83
  394. > *** 20,26 ****
  395. >       if (!(filp->f_flags & O_NONBLOCK))
  396. >           while (!PIPE_SIZE(*inode)) {
  397. >               wake_up(& PIPE_WRITE_WAIT(*inode));
  398. > !             if (!PIPE_WRITERS(*inode)) /* are there any writers? */
  399. >                   return 0;
  400. >               if (current->signal & ~current->blocked)
  401. >                   return -ERESTARTSYS;
  402. > --- 20,26 ----
  403. >       if (!(filp->f_flags & O_NONBLOCK))
  404. >           while (!PIPE_SIZE(*inode)) {
  405. >               wake_up(& PIPE_WRITE_WAIT(*inode));
  406. > !             if (inode->i_pipe == 1 && !PIPE_WRITERS(*inode)) /* are there any writers? */
  407. >                   return 0;
  408. >               if (current->signal & ~current->blocked)
  409. >                   return -ERESTARTSYS;
  410. > ***************
  411. > *** 51,57 ****
  412. >   {
  413. >       int chars, size, written = 0;
  414. >   
  415. > !     if (!PIPE_READERS(*inode)) { /* no readers */
  416. >           send_sig(SIGPIPE,current,0);
  417. >           return -EPIPE;
  418. >       }
  419. > --- 51,57 ----
  420. >   {
  421. >       int chars, size, written = 0;
  422. >   
  423. > !     if (inode->i_pipe == 1 && !PIPE_READERS(*inode)) { /* no readers */
  424. >           send_sig(SIGPIPE,current,0);
  425. >           return -EPIPE;
  426. >       }
  427. > ***************
  428. > *** 62,68 ****
  429. >           size = PAGE_SIZE-1;
  430. >       while (count>0) {
  431. >           while (PIPE_SIZE(*inode) >= size) {
  432. > !             if (!PIPE_READERS(*inode)) { /* no readers */
  433. >                   send_sig(SIGPIPE,current,0);
  434. >                   return written?written:-EPIPE;
  435. >               }
  436. > --- 62,68 ----
  437. >           size = PAGE_SIZE-1;
  438. >       while (count>0) {
  439. >           while (PIPE_SIZE(*inode) >= size) {
  440. > !             if (inode->i_pipe == 1 && !PIPE_READERS(*inode)) { /* no readers */
  441. >                   send_sig(SIGPIPE,current,0);
  442. >                   return written?written:-EPIPE;
  443. >               }
  444. > ***************
  445. 39c101
  446. < !             if (!PIPE_EMPTY(*inode))
  447. ---
  448. > !             if (!PIPE_EMPTY(*inode) || (inode->i_pipe == 1 && !PIPE_WRITERS(*inode)))
  449. 44c106
  450. < !             if (!PIPE_FULL(*inode))
  451. ---
  452. > !             if (!PIPE_FULL(*inode) || (inode->i_pipe == 1 && !PIPE_READERS(*inode)))
  453. 48,72d109
  454. < *** kernel/sched.c.orig    Sat Apr 24 09:52:29 1993
  455. < --- kernel/sched.c    Tue Jun 22 23:58:12 1993
  456. < ***************
  457. < *** 504,512 ****
  458. <   {
  459. <       if (increment < 0 && !suser())
  460. <           return -EPERM;
  461. < -     if (increment >= current->priority)
  462. < -         increment = current->priority-1;
  463. <       current->priority -= increment;
  464. <       return 0;
  465. <   }
  466. <   
  467. < --- 504,514 ----
  468. <   {
  469. <       if (increment < 0 && !suser())
  470. <           return -EPERM;
  471. <       current->priority -= increment;
  472. < +     if (current->priority < 1)
  473. < +         current->priority = 1;
  474. < +     if (current->priority > 35)
  475. < +         current->priority = 35;
  476. <       return 0;
  477. <   }
  478. <   
  479. EOF-EOF-EOF
  480. RmFile port/linux/osfcn.h
  481. Patch port/linux/paths.h<<'EOF-EOF-EOF'
  482. 4c4
  483. < #include </usr/include/paths.h>
  484. ---
  485. > #include_next <paths.h>
  486. EOF-EOF-EOF
  487. RmFile port/linux/sys/param.h
  488. NewFile port/linux/sys/types.h<<'EOF-EOF-EOF'
  489. #include_next <sys/types.h>
  490. /*
  491.  * Macros for counting and rounding.
  492.  */
  493. #ifndef howmany
  494. #define    howmany(x, y)    (((x)+((y)-1))/(y))
  495. #endif
  496. EOF-EOF-EOF
  497. Patch recvfax/main.c<<'EOF-EOF-EOF'
  498. 1c1
  499. < /*    $Header: /usr/people/sam/fax/recvfax/RCS/main.c,v 1.38 93/07/08 17:06:27 sam Exp $
  500. ---
  501. > /*    $Header: /usr/people/sam/fax/recvfax/RCS/main.c,v 1.39 93/07/16 10:17:07 sam Exp $
  502. 89c89
  503. < #ifdef SO_LINGER
  504. ---
  505. > #if defined(SO_LINGER) && !defined(__linux__)
  506. EOF-EOF-EOF
  507. Patch util/FaxClient.c++<<'EOF-EOF-EOF'
  508. 1c1
  509. < /*    $Header: /usr/people/sam/fax/util/RCS/FaxClient.c++,v 1.27 93/07/08 16:49:15 sam Exp $
  510. ---
  511. > /*    $Header: /usr/people/sam/fax/util/RCS/FaxClient.c++,v 1.28 93/07/16 10:29:53 sam Exp $
  512. 267a268,277
  513. > #ifdef __linux__
  514. >     /*
  515. >      * Linux kernel bug: can get short writes on
  516. >      * stream sockets when setup for blocking i/o.
  517. >      */
  518. >     cc -= n;
  519. >     for (int cnt, sent = 0; n; sent += cnt, n -= cnt) 
  520. >         if ((cnt = write(fdOut, buf + sent, n)) <= 0)
  521. >             fxFatal("Protocol botch (data write).");
  522. > #else
  523. 270a281
  524. > #endif
  525. EOF-EOF-EOF
  526. Patch util/Makefile<<'EOF-EOF-EOF'
  527. 2c2
  528. < #    $Header: /usr/people/sam/fax/util/RCS/Makefile,v 1.52 93/07/09 18:27:41 sam Exp $
  529. ---
  530. > #    $Header: /usr/people/sam/fax/util/RCS/Makefile,v 1.53 93/07/19 11:34:17 sam Exp $
  531. 102a103,104
  532. >     ${PUTSERV} -F ${SPOOL}/bin -src xferstats.sh -O xferstats
  533. >     ${PUTSERV} -F ${SPOOL}/bin -src recvstats.sh -O recvstats
  534. EOF-EOF-EOF
  535. Patch util/SendFaxClient.c++<<'EOF-EOF-EOF'
  536. 1c1
  537. < /*    $Header: /usr/people/sam/fax/util/RCS/SendFaxClient.c++,v 1.8 93/06/18 11:44:20 sam Exp $
  538. ---
  539. > /*    $Header: /usr/people/sam/fax/util/RCS/SendFaxClient.c++,v 1.9 93/07/16 10:29:56 sam Exp $
  540. 39a40
  541. > #ifndef __linux__
  542. 40a42
  543. > #endif
  544. EOF-EOF-EOF
  545. Patch util/ps2fax.gs.sh<<'EOF-EOF-EOF'
  546. 2c2
  547. < #    $Header: /usr/people/sam/fax/util/RCS/ps2fax.gs.sh,v 1.9 93/07/08 16:48:33 sam Exp $
  548. ---
  549. > #    $Header: /usr/people/sam/fax/util/RCS/ps2fax.gs.sh,v 1.10 93/07/16 10:30:03 sam Exp $
  550. 43c43
  551. < opt=
  552. ---
  553. > out=ps.fax        # default output filename
  554. 50c50
  555. <     -o)    shift; opt="$opt -sOutputFile=$1" ;;
  556. ---
  557. >     -o)    shift; out="$1" ;;
  558. 60,65c60,68
  559. < # 279.4mm is actually correct, but many people round up!
  560. < 1728x280|1728x279) paper=letter;;
  561. < *x297) paper=a4;;
  562. < *x364) paper=b4;;
  563. < *)    echo "$0: Unsupported page size: $pagewidth x $pagelength";
  564. <     exit 1;;
  565. ---
  566. > 1728x280|1728x279)        # 279.4mm is actually correct...
  567. >     paper=letter;;
  568. > *x296|*x297)            # more roundoff problems...
  569. >     paper=a4;;
  570. > *x364)
  571. >     paper=b4;;
  572. > *)
  573. >     echo "$0: Unsupported page size: $pagewidth x $pagelength";
  574. >     exit 1;;
  575. 68c71
  576. <     -sPAPERSIZE=$paper -r204x$vres -dSAFER=true $opt -
  577. ---
  578. >     -sPAPERSIZE=$paper -r204x$vres -dSAFER=true "-sOutputFile=$out" -
  579. EOF-EOF-EOF
  580. NewFile util/recvstats.sh<<'EOF-EOF-EOF'
  581. #! /bin/sh
  582. #    $Header: /usr/people/sam/fax/util/RCS/recvstats.sh,v 1.2 93/07/19 11:56:57 sam Exp $
  583. #
  584. # FlexFAX Facsimile Software
  585. #
  586. # Copyright (c) 1990, 1991, 1992, 1993 Sam Leffler
  587. # Copyright (c) 1991, 1992, 1993 Silicon Graphics, Inc.
  588. # 
  589. # Permission to use, copy, modify, distribute, and sell this software and 
  590. # its documentation for any purpose is hereby granted without fee, provided
  591. # that (i) the above copyright notices and this permission notice appear in
  592. # all copies of the software and related documentation, and (ii) the names of
  593. # Sam Leffler and Silicon Graphics may not be used in any advertising or
  594. # publicity relating to the software without the specific, prior written
  595. # permission of Sam Leffler and Silicon Graphics.
  596. # 
  597. # THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
  598. # EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
  599. # WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
  600. # 
  601. # IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
  602. # ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
  603. # OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  604. # WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
  605. # LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
  606. # OF THIS SOFTWARE.
  607. #
  608.  
  609. #
  610. # Print Statistics about Received Facsimile.
  611. #
  612. SPOOL=/usr/spool/fax
  613. AWK=nawk
  614.  
  615. PATH=/bin:/usr/bin:/etc
  616. test -d /usr/ucb  && PATH=$PATH:/usr/ucb        # Sun and others
  617. test -d /usr/bsd  && PATH=$PATH:/usr/bsd        # Silicon Graphics
  618. test -d /usr/5bin && PATH=/usr/5bin:$PATH:/usr/etc    # Sun and others
  619. test -d /usr/sbin && PATH=/usr/sbin:$PATH        # 4.4BSD-derived
  620.  
  621. FILES=
  622. SORTKEY=-sender
  623.  
  624. while [ x"$1" != x"" ] ; do
  625.     case $1 in
  626.     -send*|-csi|-dest*|-speed|-rate|-format)
  627.         SORTKEY=$1;;
  628.     -*)        echo "Usage: $0 [-sortkey] [files]"; exit 1;;
  629.     *)        FILES="$FILES $1";;
  630.     esac
  631.     shift
  632. done
  633. if [ -z "$FILES" ]; then
  634.     FILES=$SPOOL/etc/xferlog
  635. fi
  636.  
  637. #
  638. # Construct awk rules to collect information according
  639. # to the desired sort key.  There are two rules for
  640. # each; to deal with the two different formats that
  641. # have existed over time.
  642. #
  643. case $SORTKEY in
  644. -send*|-csi)
  645.     AWKRULES='$2 == "RECV" && NF == 9  { acct($3, $7, $8, $5, $6, $9); }
  646.                $2 == "RECV" && NF == 11 { acct($6, $9, $10, $7, $8, $11); }'
  647.     ;;
  648. -dest*)
  649.     AWKRULES='$2 == "RECV" && NF == 9  { acct($4, $7, $8, $5, $6, $9); }
  650.               $2 == "RECV" && NF == 11 { acct($5, $9, $10, $7, $8, $11); }'
  651.     ;;
  652. -speed|-rate)
  653.     AWKRULES='$2 == "RECV" && NF == 9  { acct($5, $7, $8, $5, $6, $9); }
  654.               $2 == "RECV" && NF == 11 { acct($7, $9, $10, $7, $8, $11); }'
  655.     ;;
  656. -format)
  657.     AWKRULES='$2 == "RECV" && NF == 9  { acct($6, $7, $8, $5, $6, $9); }
  658.               $2 == "RECV" && NF == 11 { acct($8, $9, $10, $7, $8, $11); }'
  659.     ;;
  660. esac
  661.  
  662. #
  663. # Generate an awk program to process the statistics file.
  664. #
  665. tmpAwk=/tmp/xfer$$
  666. trap "rm -f $tmpAwk; exit 1" 0 1 2 15
  667.  
  668. (cat<<'EOF'
  669. #
  670. # Convert hh:mm:ss to minutes.
  671. #
  672. func cvtTime(s)
  673. {
  674.     t = 0;
  675.     for (n = split(s, a, ":"); n > 1; n--)
  676.     t = t*60 + a[n];
  677.     if (n > 0)
  678.     t += t/60;
  679.     return t;
  680. }
  681.  
  682. func setupDigits()
  683. {
  684.   digits[0] = "0"; digits[1] = "1"; digits[2] = "2";
  685.   digits[3] = "3"; digits[4] = "4"; digits[5] = "5";
  686.   digits[6] = "6"; digits[7] = "7"; digits[8] = "8";
  687.   digits[9] = "9";
  688. }
  689.  
  690. #
  691. # Format seconds as hh:mm:ss.
  692. #
  693. func fmtTime(t)
  694. {
  695.     v = int(t/3600);
  696.     result = "";
  697.     if (v > 0) {
  698.     if (v >= 10)
  699.         result = digits[int(v/10)];
  700.     result = result digits[int(v%10)] ":";
  701.     t -= v*3600;
  702.     }
  703.     v = int(t/60);
  704.     if (v >= 10 || result != "")
  705.     result = result digits[int(v/10)];
  706.     result = result digits[int(v%10)];
  707.     t -= v*60;
  708.     return (result ":" digits[int(t/10)] digits[int(t%10)]);
  709. }
  710.  
  711. #
  712. # Setup a map for histogram calculations.
  713. #
  714. func setupMap(s, map)
  715. {
  716.     n = split(s, a, ":");
  717.     for (i = 1; i <= n; i++)
  718.     map[a[i]] = i;
  719. }
  720.  
  721. #
  722. # Add pages to a histogram.
  723. #
  724. func addToMap(key, ix, pages, map)
  725. {
  726.     if (key == "") {
  727.     for (i in map)
  728.         key = key ":";
  729.     }
  730.     n = split(key, a, ":");
  731.     a[map[ix]] += pages;
  732.     t = a[1];
  733.     for (i = 2; i <= n; i++)
  734.       t = t ":" a[i];
  735.     return t;
  736. }
  737.  
  738. #
  739. # Return the name of the item with the
  740. # largest number of accumulated pages.
  741. #
  742. func bestInMap(totals, map)
  743. {
  744.    n = split(totals, a, ":");
  745.    imax = 1; max = -1;
  746.    for (j = 1; j <= n; j++)
  747.        if (a[j] > max) {
  748.        max = a[j];
  749.        imax = j;
  750.        }
  751.    split(map, a, ":");
  752.    return a[imax];
  753. }
  754.  
  755. #
  756. # Sort array a[l..r]
  757. #
  758. function qsort(a, l, r) {
  759.     i = l;
  760.     k = r+1;
  761.     item = a[l];
  762.     for (;;) {
  763.     while (i < r) {
  764.             i++;
  765.         if (a[i] >= item)
  766.         break;
  767.         }
  768.     while (k > l) {
  769.             k--;
  770.         if (a[k] <= item)
  771.         break;
  772.         }
  773.         if (i >= k)
  774.         break;
  775.     t = a[i]; a[i] = a[k]; a[k] = t;
  776.     }
  777.     t = a[l]; a[l] = a[k]; a[k] = t;
  778.     if (k != 0 && l < k-1)
  779.     qsort(a, l, k-1);
  780.     if (k+1 < r)
  781.     qsort(a, k+1, r);
  782. }
  783.  
  784. #
  785. # Accumulate a statistics record.
  786. #
  787. func acct(key, pages, time, br, df, status)
  788. {
  789.     gsub("\"", "", key);
  790.     gsub("^ +", "", key);
  791.     gsub(" +$", "", key);
  792.     recvpages[key] += pages;
  793.     if (pages == 0 && time > 60)
  794.     time = 0;
  795.     recvtime[key] += time;
  796.     gsub("\"", "", status);
  797.     if (status != "")
  798.     recverrs[key]++;
  799.     gsub("\"", "", br);
  800.     recvrate[key] = addToMap(recvrate[key], br, pages, rateMap);
  801.     gsub("\"", "", df);
  802.     recvdata[key] = addToMap(recvdata[key], df, pages, dataMap);
  803. }
  804.  
  805. #
  806. # Print a rule between the stats and the totals line.
  807. #
  808. func printRule(n, s)
  809. {
  810.     r = "";
  811.     while (n-- >= 0)
  812.     r = r s;
  813.     printf "%s\n", r;
  814. }
  815.  
  816. BEGIN        { FS="\t";
  817.           rates = "2400:4800:7200:9600:12000:14400";
  818.           setupMap(rates, rateMap);
  819.           datas = "1-D MR:2-D MR:2-D Uncompressed Mode:2-D MMR";
  820.           setupMap(datas, dataMap);
  821.         }
  822. END        { OFS="\t"; setupDigits();
  823.           maxlen = 15;
  824.           nsorted = 0;
  825.           for (i in recvpages) {
  826.               l = length(i);
  827.               if (l > maxlen)
  828.             maxlen = l;
  829.               sorted[nsorted++] = i;
  830.           }
  831.           qsort(sorted, 0, nsorted-1);
  832.           fmt = "%-" maxlen "." maxlen "s";    # e.g. %-24.24s
  833.           printf fmt " %5s %8s %6s %4s %7s %7s\n",
  834.               "Sender", "Pages", "Time", "Pg/min",
  835.               "Errs", "TypRate", "TypData";
  836.           tpages = 0;
  837.           ttime = 0;
  838.           terrs = 0;
  839.           for (k = 0; k < nsorted; k++) {
  840.               i = sorted[k];
  841.               t = recvtime[i]; if (t == 0) t = 1;
  842.               n = recvpages[i]; if (n == 0) n = 1;
  843.               brate = best
  844.               printf fmt " %5d %8s %6.1f %4d %7d %7s\n",
  845.               i, recvpages[i], fmtTime(recvtime[i]*60),
  846.               recvpages[i] / t, recverrs[i],
  847.               bestInMap(recvrate[i], rates),
  848.               bestInMap(recvdata[i], datas);
  849.             tpages += recvpages[i];
  850.             ttime += recvtime[i];
  851.             terrs += recverrs[i];
  852.           }
  853.           printRule(maxlen+1+5+1+8+6+1+4+1+7+1+7, "-");
  854.           t = ttime; if (t == 0) t = 1;
  855.           printf fmt " %5d %8s %6.1f %4d\n",
  856.               "Total", tpages, fmtTime(ttime*60), tpages/t, terrs;
  857.         }
  858. EOF
  859. echo "$AWKRULES"
  860. )>$tmpAwk
  861. $AWK -f $tmpAwk $FILES
  862. EOF-EOF-EOF
  863. RmFile util/xfer.awk
  864. RmFile util/xferdest.awk
  865. NewFile util/xferstats.sh<<'EOF-EOF-EOF'
  866. #! /bin/sh
  867. #    $Header: /usr/people/sam/fax/util/RCS/xferstats.sh,v 1.2 93/07/19 11:56:59 sam Exp $
  868. #
  869. # FlexFAX Facsimile Software
  870. #
  871. # Copyright (c) 1990, 1991, 1992, 1993 Sam Leffler
  872. # Copyright (c) 1991, 1992, 1993 Silicon Graphics, Inc.
  873. # 
  874. # Permission to use, copy, modify, distribute, and sell this software and 
  875. # its documentation for any purpose is hereby granted without fee, provided
  876. # that (i) the above copyright notices and this permission notice appear in
  877. # all copies of the software and related documentation, and (ii) the names of
  878. # Sam Leffler and Silicon Graphics may not be used in any advertising or
  879. # publicity relating to the software without the specific, prior written
  880. # permission of Sam Leffler and Silicon Graphics.
  881. # 
  882. # THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
  883. # EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
  884. # WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
  885. # 
  886. # IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
  887. # ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
  888. # OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  889. # WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
  890. # LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
  891. # OF THIS SOFTWARE.
  892. #
  893.  
  894. #
  895. # Print Statistics about Transmitted Facsimile.
  896. #
  897. SPOOL=/usr/spool/fax
  898. AWK=nawk
  899.  
  900. PATH=/bin:/usr/bin:/etc
  901. test -d /usr/ucb  && PATH=$PATH:/usr/ucb        # Sun and others
  902. test -d /usr/bsd  && PATH=$PATH:/usr/bsd        # Silicon Graphics
  903. test -d /usr/5bin && PATH=/usr/5bin:$PATH:/usr/etc    # Sun and others
  904. test -d /usr/sbin && PATH=/usr/sbin:$PATH        # 4.4BSD-derived
  905.  
  906. FILES=
  907. SORTKEY=-sender
  908.  
  909. while [ x"$1" != x"" ] ; do
  910.     case $1 in
  911.     -send*|-csi|-dest*|-speed|-rate|-format)
  912.         SORTKEY=$1;;
  913.     -*)        echo "Usage: $0 [-sortkey] [files]"; exit 1;;
  914.     *)        FILES="$FILES $1";;
  915.     esac
  916.     shift
  917. done
  918. if [ -z "$FILES" ]; then
  919.     FILES=$SPOOL/etc/xferlog
  920. fi
  921.  
  922. #
  923. # Construct awk rules to collect information according
  924. # to the desired sort key.  There are two rules for
  925. # each; to deal with the two different formats that
  926. # have existed over time.
  927. #
  928. case $SORTKEY in
  929. -send*)
  930.     AWKRULES='$2 == "SEND" && NF == 9  { acct($3, $7, $8, $5, $6, $9); }
  931.                $2 == "SEND" && NF == 11 { acct($4, $9, $10, $7, $8, $11); }'
  932.     ;;
  933. -csi)
  934.     AWKRULES='$2 == "SEND" && NF == 9  { acct($4, $7, $8, $5, $6, $9); }
  935.               $2 == "SEND" && NF == 11 { acct($6, $9, $10, $7, $8, $11); }'
  936.     ;;
  937. -dest*)
  938.     AWKRULES='$2 == "SEND" && NF == 9  { acct($4, $7, $8, $5, $6, $9); }
  939.               $2 == "SEND" && NF == 11 { acct($5, $9, $10, $7, $8, $11); }'
  940.     ;;
  941. -speed|-rate)
  942.     AWKRULES='$2 == "SEND" && NF == 9  { acct($5, $7, $8, $5, $6, $9); }
  943.               $2 == "SEND" && NF == 11 { acct($7, $9, $10, $7, $8, $11); }'
  944.     ;;
  945. -format)
  946.     AWKRULES='$2 == "SEND" && NF == 9  { acct($6, $7, $8, $5, $6, $9); }
  947.               $2 == "SEND" && NF == 11 { acct($8, $9, $10, $7, $8, $11); }'
  948.     ;;
  949. esac
  950.  
  951. #
  952. # Generate an awk program to process the statistics file.
  953. #
  954. tmpAwk=/tmp/xfer$$
  955. trap "rm -f $tmpAwk; exit 1" 0 1 2 15
  956.  
  957. (cat<<'EOF'
  958. #
  959. # Convert hh:mm:ss to minutes.
  960. #
  961. func cvtTime(s)
  962. {
  963.     t = 0;
  964.     for (n = split(s, a, ":"); n > 1; n--)
  965.     t = t*60 + a[n];
  966.     if (n > 0)
  967.     t += t/60;
  968.     return t;
  969. }
  970.  
  971. func setupDigits()
  972. {
  973.   digits[0] = "0"; digits[1] = "1"; digits[2] = "2";
  974.   digits[3] = "3"; digits[4] = "4"; digits[5] = "5";
  975.   digits[6] = "6"; digits[7] = "7"; digits[8] = "8";
  976.   digits[9] = "9";
  977. }
  978.  
  979. #
  980. # Format seconds as hh:mm:ss.
  981. #
  982. func fmtTime(t)
  983. {
  984.     v = int(t/3600);
  985.     result = "";
  986.     if (v > 0) {
  987.     if (v >= 10)
  988.         result = digits[int(v/10)];
  989.     result = result digits[int(v%10)] ":";
  990.     t -= v*3600;
  991.     }
  992.     v = int(t/60);
  993.     if (v >= 10 || result != "")
  994.     result = result digits[int(v/10)];
  995.     result = result digits[int(v%10)];
  996.     t -= v*60;
  997.     return (result ":" digits[int(t/10)] digits[int(t%10)]);
  998. }
  999.  
  1000. #
  1001. # Setup a map for histogram calculations.
  1002. #
  1003. func setupMap(s, map)
  1004. {
  1005.     n = split(s, a, ":");
  1006.     for (i = 1; i <= n; i++)
  1007.     map[a[i]] = i;
  1008. }
  1009.  
  1010. #
  1011. # Add pages to a histogram.
  1012. #
  1013. func addToMap(key, ix, pages, map)
  1014. {
  1015.     if (key == "") {
  1016.     for (i in map)
  1017.         key = key ":";
  1018.     }
  1019.     n = split(key, a, ":");
  1020.     a[map[ix]] += pages;
  1021.     t = a[1];
  1022.     for (i = 2; i <= n; i++)
  1023.       t = t ":" a[i];
  1024.     return t;
  1025. }
  1026.  
  1027. #
  1028. # Return the name of the item with the
  1029. # largest number of accumulated pages.
  1030. #
  1031. func bestInMap(totals, map)
  1032. {
  1033.    n = split(totals, a, ":");
  1034.    imax = 1; max = -1;
  1035.    for (j = 1; j <= n; j++)
  1036.        if (a[j] > max) {
  1037.        max = a[j];
  1038.        imax = j;
  1039.        }
  1040.    split(map, a, ":");
  1041.    return a[imax];
  1042. }
  1043.  
  1044. #
  1045. # Sort array a[l..r]
  1046. #
  1047. function qsort(a, l, r) {
  1048.     i = l;
  1049.     k = r+1;
  1050.     item = a[l];
  1051.     for (;;) {
  1052.     while (i < r) {
  1053.             i++;
  1054.         if (a[i] >= item)
  1055.         break;
  1056.         }
  1057.     while (k > l) {
  1058.             k--;
  1059.         if (a[k] <= item)
  1060.         break;
  1061.         }
  1062.         if (i >= k)
  1063.         break;
  1064.     t = a[i]; a[i] = a[k]; a[k] = t;
  1065.     }
  1066.     t = a[l]; a[l] = a[k]; a[k] = t;
  1067.     if (k != 0 && l < k-1)
  1068.     qsort(a, l, k-1);
  1069.     if (k+1 < r)
  1070.     qsort(a, k+1, r);
  1071. }
  1072.  
  1073. #
  1074. # Accumulate a statistics record.
  1075. #
  1076. func acct(key, pages, time, br, df, status)
  1077. {
  1078.     gsub("\"", "", key);
  1079.     gsub("^ +", "", key);
  1080.     gsub(" +$", "", key);
  1081.     sendpages[key] += pages;
  1082.     if (pages == 0 && time > 60)
  1083.     time = 0;
  1084.     sendtime[key] += time;
  1085.     gsub("\"", "", status);
  1086.     if (status != "")
  1087.     senderrs[key]++;
  1088.     gsub("\"", "", br);
  1089.     sendrate[key] = addToMap(sendrate[key], br, pages, rateMap);
  1090.     gsub("\"", "", df);
  1091.     senddata[key] = addToMap(senddata[key], df, pages, dataMap);
  1092. }
  1093.  
  1094. #
  1095. # Print a rule between the stats and the totals line.
  1096. #
  1097. func printRule(n, s)
  1098. {
  1099.     r = "";
  1100.     while (n-- >= 0)
  1101.     r = r s;
  1102.     printf "%s\n", r;
  1103. }
  1104.  
  1105. BEGIN        { FS="\t";
  1106.           rates = "2400:4800:7200:9600:12000:14400";
  1107.           setupMap(rates, rateMap);
  1108.           datas = "1-D MR:2-D MR:2-D Uncompressed Mode:2-D MMR";
  1109.           setupMap(datas, dataMap);
  1110.         }
  1111. END        { OFS="\t"; setupDigits();
  1112.           maxlen = 15;
  1113.           nsorted = 0;
  1114.           for (i in sendpages) {
  1115.               l = length(i);
  1116.               if (l > maxlen)
  1117.             maxlen = l;
  1118.               sorted[nsorted++] = i;
  1119.           }
  1120.           qsort(sorted, 0, nsorted-1);
  1121.           fmt = "%-" maxlen "." maxlen "s";    # e.g. %-24.24s
  1122.           printf fmt " %5s %8s %6s %4s %7s %7s\n",
  1123.               "Destination", "Pages", "Time", "Pg/min",
  1124.               "Errs", "TypRate", "TypData";
  1125.           tpages = 0;
  1126.           ttime = 0;
  1127.           terrs = 0;
  1128.           for (k = 0; k < nsorted; k++) {
  1129.               i = sorted[k];
  1130.               t = sendtime[i]; if (t == 0) t = 1;
  1131.               n = sendpages[i]; if (n == 0) n = 1;
  1132.               brate = best
  1133.               printf fmt " %5d %8s %6.1f %4d %7d %7.7s\n",
  1134.               i, sendpages[i], fmtTime(sendtime[i]*60),
  1135.               sendpages[i] / t, senderrs[i],
  1136.               bestInMap(sendrate[i], rates),
  1137.               bestInMap(senddata[i], datas);
  1138.             tpages += sendpages[i];
  1139.             ttime += sendtime[i];
  1140.             terrs += senderrs[i];
  1141.           }
  1142.           printRule(maxlen+1+5+1+8+6+1+4+1+7+1+7, "-");
  1143.           t = ttime; if (t == 0) t = 1;
  1144.           printf fmt " %5d %8s %6.1f %4d\n",
  1145.               "Total", tpages, fmtTime(ttime*60), tpages/t, terrs;
  1146.         }
  1147. EOF
  1148. echo "$AWKRULES"
  1149. )>$tmpAwk
  1150. $AWK -f $tmpAwk $FILES
  1151. EOF-EOF-EOF
  1152.